home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
USA Bestseller
/
USA BESTSELLER Vol 1-95 (Hepp-Computer)(1995).iso
/
e193
/
0150ter2._xe
/
MANUAL.EXE
/
TEST78.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-20
|
727b
|
27 lines
{ -------------------------- Terminate utility ------------------------------ }
{ }
{ This program will simply test if some of the lines in TERMINAT.DOC is }
{ longer than 78, which is the maximum allowed in each helpfile. }
{ }
{ -------------------------- Terminate utility ------------------------------ }
var
t:text;
s:string;
x:word;
begin
assign(t,'terminat.doc');
reset(t);
x:=0;
while not eof(t) do
begin
inc(x);
readln(t,s);
if length(s)>78 Then writeln(x,': '+s);
end;
close(t);
end.